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-- Commander. mesa; edited by Sandman, May 5, 1978 11:40 AM 

DIRECTORY 

CommanderDef s : FROM "commanderdefs" , 
ControlDefs: FROM "controldef s", 
FrameDefs: FROM "framedefs", 
InlineDefs: FROM " in! inedef s" , 
ImageDefs: FROM "imagedefs", 
IODefs: FROM "iodefs", 
MiscDefs: FROM "miscdefs", 
RectangleDef s : FROM "rectangledef s M , 
SegmentDefs: FROM "segmentdef s" , . 
StreamDefs: FROM "streamdef s" , 
StringDefs: FROM "stringdef s ,f , 
SystemDefs: FROM "systemdefs" ; 

DEFINITIONS FROM StringDefs, CommanderDef s , IODefs; 

Commander: PROGRAM [herald: STRING] 

IMPORTS ImageDefs, IODefs, StreamDefs, StringDefs, SystemDefs 

EXPORTS CommanderDefs ■ 
BEGIN 

GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandl e; 

Commandltem: TYPE = RECORD [ 
cb: CommandBlockHandle, 
link: POINTER TO Commandltem]; 

Stringltem: TYPE = RECORD [ 
link: POINTER TO Stringltem, 
string: STRING]; 

commandHead: POINTER TO Commandltem «- NIL; 
stringHead: POINTER TO Stringltem <- NIL; 

SyntaxError: ERROR = CODE; 

Help: SIGNAL = CODE; 

BadName: ERROR « CODE; 

BadParam: ERROR [type: ParamType] * CODE; 

GetDebugger: PROCEDURE ■ 
BEGIN 

MiscDefs. Call Debugger [NIL]; 
END; 

Load: PROCEDURE [name: STRING] = 
BEGIN OPEN StringDefs; 
module: STRING <- [40]; 
frame: ControlDefs .Global FrameHandl e; 

AppendString[module, name ! StringBoundsFaul t => GOTO error]; 
CheckForExtensi on [module, M .bcd"L] ; 
frame <- FrameDefs . New[modul e I ANY => GOTO error]; 
START LOOPHOLE[frame, PROGRAM][ t ANY => GOTO error]; 
RETURN 

EXITS error => Wri teString["Bad fileT'L]; 
END; 

CheckForExtension: PROCEDURE [name, ext: STRING] - 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .name. length) DO 

IF name[i] - • . THEN RETURN; 

ENDLOOP; 
StringDefs . Appends tring [name, ext]; 
RETURN 
END; 

AddCommand: PUBLIC PROCEDURE [name: STRING, proc: PROCEDURE, numargs: CARDINAL] RETURNS [CommandBlockHa 
**ndle] ■ 

BEGIN OPEN SystemDefs; 

c: POINTER TO Commandltem *- Al locateHeapNode[SIZE[CommandItem]] ; 

cb: CommandBlockHandle «- 

Al locateHeapNode[SIZE[CommandBlock]+numargs*SIZC[CommandParam]] ; 

ct <- Commandl tem[cb: cb, link: commandHead]; 

commandHead «- c; 



Commander .mesa 2~Sep-78 14:40:55 Page 



cb.name «- name; 
cb.proc <- proc; 
cb.nparams <- numargs; 
RETURN[cb] 
END; 

New/String: PROCEDURE [s: STRING] RETURNS [ns: STRING] = 
BEGIN 
si: POINTER TO Stringltem «- 

SystemDef s .All ocateHeapNode[SIZE[String Item]] ; 
ns <- SystemDefs. AllocateHeapString[s . length] ; 
sit 4- Stringltem[l ink: stringHead, string: ns]; 
stringllead *- si ; 
AppendString[ns , s] ; 
RETURN 
END; 

FreeStrings: PROCEDURE - 
BEGIN 

next: POINTER TO Stringltem; 
WHILE stringHead # NIL DO 

next *- stringHead . 1 ink; 

SystemDefs . FreeHeapString[ stringHead .string] ; 

SystemDefs . FreeHeapNode[ stringHead] ; 

stringHead <- next; 

ENDLOOP; 
RETURN 
END; 

WriteEOL: PROCEDURE = 
BEGIN 

IF ~NewLine[] THEN WriteChar[CR] ; 
RETURN 
END; 

ComplementScreen: PROCEDURE ■ 
BEGIN OPEN RectangleDefs; 
dcbptr: DCBptr; 
CompBackGround: ARRAY backgtype OF backgtype = [black, white]; 

FOR dcbptr «- MEMORY[420B] , dcbptr. next UNTIL dcbptr - DCBnil DO 

dcbptr . background <- CompBackGround[dcbptr. background] ; 

ENDLOOP; 

RETURN 

END; 

FlashScreen: PROCEDURE « 
BEGIN 

Comp1ementScreen[] ; 

THROUGH [1.. 10000] DO NULL ENDLOOP; -- delay a while (38us per iteration) 
ComplementScreen[] ; 
RETURN 
END; 

interactive: BOOLEAN; 

commandStream: StreamDef s .StreamHandle; 

comcmRequest: short ImageDef s . FileRequest <- [ 

body: short[f ill : , name: "Com. Cm. M ], 

file: NIL, 

access: SegmentDef s.Read, 

link: ]; 

CommanderCleanupItem: ImageDef s .Cleanupltem «- 

[proc: CommanderCl eanup , mask: ImageDef s .CleanupMask[Save] , link: ]; 

CommanderCleanup: ImageDef s .CleanupProcedure « 
BEGIN 
SELECT why FROM 

Save => ImageDef s . AddFileRequest[@comcmRequest]; 

ENDCASE; 
RETURN 
END; 

SetCommandlnput: PROCEDURE « 
BEGIN 
c: CHARACTER; 



Commander .mesa 2-Sep-78 14:40:55 Page 



IF comcmRequest.f i 1 e * NIL THEN commandStream «- NIL 
ELSE 

BEGIN OPEN StreamDefs; 

commandStream <~ CreateByteStream[comcmRequest .f ile, StreamDefs. Read]; 

[] <- SkipStreamBlanks[]; 

UNTIL commandStream. endof [commandStream] OR 

(c*-commandStream.get[commandStream]) ■ SP OR c ■ CR DO NULL ENDLOOP; 

[] <- SkipStreamB1anks[]; 

IF commandStream. endof [commandStream] THEN 

BEGIN commandStream. destroy[commandStream] ; commandStream +- NIL; END 

ELSE Set Index [commandStream, Mod ifyIndex[GetIndex[commandStream] , -1]] ; 

END; 
interactive «- commandStream = NIL; 

RETURN 
END; 
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-- code to get a line from the user, handling ESC and ?; stuffs it in line 

line: STRING «- NIL; 
"HneTerminator: CHARACTER; 
Lindex: CARDINAL; 

AppendStringToLine: PROCEDURE[s: STRING] - 
BEGIN 

UNTIL (s.length+line. length) <= 1 ine.maxlength DO AddToLine[]; ENDLOOP; 
AppendString[line,s]; 
RETURN 
END; 

AppendCharToLine: PROCEDURE[c: CHARACTER] » 
BEGIN 

IF line. length a 1 ine.maxlength THEN AddToLine[]; 
AppendChar[l ine.c] ; 
RETURN 
END; 

ReadUserLine: PROCEDURE[newstring: BOOLEAN] ■ 

BEGIN -- read line from user; also handles <ESC> and '? for input from user 
IF line ■ NIL THEN line <- SystemDef s . Al locateHeapString[80]; 
[] +- ReadEdi tedString[l ine, LineMonitor, newstring 

iresume ■> BEGIN newstring <- FALSE; RETRY END]; 
Lindex <- 0; 
RETURN 
END; 

resume: SIGNAL = CODE; 

LineMonitor: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] = 
BEGIN 
SELECT c FROM 

CR => RETURN[TRUE]; 
'? => 

BEGIN 

WriteChar['?]; 

IF line. length - THEN SIGNAL Help; 
PromptCompletions[] ; SIGNAL resume 
END; 
ESC => BEGIN ExtendLine[]; SIGNAL resume END; 
ENDCASE -> RETURN[FALSE] 
END; 

PromptCompletions: PROCEDURE = 
BEGIN 

id: STRING « [40]; 
atLeastOne: BOOLEAN *- FALSE; 
p: POINTER TO Commandltem; 
IF GetLastID[id] THEN 

FOR p <- commandHead, p. link UNTIL p » NIL DO 
IF Pref ixString[pref ix: id, of: p.cb.name] THEN 
BEGIN 

IF -atLeastOne THEN WriteEOL[]; 

WriteChar[SP]; Wri teChar[SP] ; WriteString[p .cb.name] ; 
atLeastOne <- TRUE; 
END; 
ENDLOOP; 
IF atLeastOne THEN ReTypeLine[] ELSE F 1ashScreen[]; 
RETURN 
END; 

ExtendLine: PROCEDURE - 
BEGIN 

i: CARDINAL; 
id: STRING - [40]; 
match: STRING - [40]; 

moreThanOne, atLeastOne: BOOLEAN <- FALSE; 
p: POINTER TO Commandltem; 

IF GetLastID[id] THEN 
BEGIN 
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FOR p <- commandHead, p. link UNTIL p * NIL DO 
IF Pref ixString[pref ix: id, of: p.cb.name] THEN 
IF -atLeastOne THEN 

BEGIN AppendString[match , p.cb.name]; atLeastOne «- TRUE; END 
ELSE BEGIN AndString[match , p.cb.name]; moreThanOne <- TRUE; END; 
ENDLOOP; 
END; 
IF atLeastOne AND id. length § match. length THEN 
BEGIN 

FOR i IN [id. length. .match. length) DO 
AppendCharToLine[match[i]] ; 
WriteChar[match[i]]; 
ENDLOOP; 
IF moreThanOne THEN FlashScreen[] ; 
END 
ELSE FlashScreen[]; 
RETURN 
END; 



PrefixString: PROCEDURE [prefix, of: STRING] RETURNS [BOOLEAN] ■ 
BEGIN 
i: CARDINAL; 

IF prefix. length > of. length THEN RETURN[FALSE] ; 
FOR i IN [0. .pref ix. length) DO 

IF ~EquivalentChar[prefix[i], of[i]] THEN RETURN[FALSE] ; 

ENDLOOP; 
RETURN[TRUE] 
END; 

AndString: PROCEDURE [accum, s: STRING] ■ 
BEGIN 
i: CARDINAL; 

FOR i IN [0. .s. length) DO 

IF ~EquivalentChar[accum[i] , s[i]] THEN 
BEGIN accum. length <- i; RETURN END; 

ENDLOOP; 
accum. length <- s. length; 
RETURN; 
END; 

GetLastID: PROCEDURE [id: STRING] RETURNS [BOOLEAN] - 
BEGIN 

i, start: CARDINAL; 
c: CHARACTER; 

IF line. length - THEN RETURN[FALSE] ; 

start «- 1 ine. length ; 

FOR i DECREASING IN [0 . . 1 ine . 1 ength) DO 

IF AlphaNumeric[c <- line[i]] THEN start <- i ELSE 

IF c = '] OR c ■ SP THEN EXIT 

ELSE RETURN[FALSE]; 

ENDLOOP; 
FOR i IN [start. .line. length) DO id[i-start] <- line[i] ENDLOOP; 
id. length <- 1 ine. length-start ; 
RETURN[id. length ti 0] 
END; 



AlphaNumeric: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] - 
BEGIN OPEN InlineDefs; 
RFTURN[Alphabetic[c] OR Digit[c]] 
END; 

Alphabetic: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] » 
BEGIN 

RETURN[InlineDefs.BITAND[LOOPHOLE[c], 337B] IN [100B . . 132B]] 
END; 

Digit: PROCEDURE [c: CHARACTER] RETURNS [BOOLEAN] « 
BEGIN 

RETURN[c IN ['0. . '9]] 
END; 



Commander .mesa 2-Sep~78 14:40:55 Page 



EquivalentChar: PROCEDURE [c.d: CHARACTER] RETURNS [BOOLEAN] - 
BEGIN OPEN InlineDefs; 

RETURN[BITOR[LOOPHOLE[c], 40B] ■ BITOR[LOOPHOLE[d] , 40B]] 
END; 

AddToLine: PROCEDURE ■ 
BEGIN 
newline: STRING *- SystemDef s ,A1 locateHeapStringp ine.maxlength+80] ; 

AppendString[to: newline, from: line]; 

SystemDef s . FreeHeapString[1 ine]; 

line <- newline; 

RETURN 

END; 



ReTypeLine: PROCEDURE 
BEGIN 

WriteEOL[]; 
WriteString[1 ine]; 
RETURN 
END; 
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-- code to handle characters 

command: STRING « [100]; 
executing: BOOLEAN <- FALSE; 
Cindex: CARDINAL; 
currentChar: CHARACTER; 

EndOfString: SIGNAL - CODE; 

GetChar: PROCEDURE RETURNS [CHARACTER] <- GetCommandChar ; 

PutBackChar: PROCEDURE <- PutBackCommandChar; 

GetCommandChar: PROCEDURE RETURNS [CHARACTER] - 
BEGIN 

IF Cindex >= command . length THEN currentChar «- NUL 
ELSE BEGIN currentChar *- command[Cindex]; Cindex ♦- Cindex+1; END; 
RETURN[currentChar] 
END; 

PutBackCommandChar: PROCEDURE ■ 
BEGIN 

IF currentChar = NUL THEN RETURN; 
IF Cindex - THEN ERROR; 
Cindex *- Cindex-1; 
RETURN 
END; 

CommandOverFlow: SIGNAL = CODE; 

SetUpCommand: PROCEDURE RETURNS [BOOLEAN] ■ 
BEGIN 

BEGIN ENABLE Str ingBoundsFaul t => SIGNAL CommandOverFlow; 
RETURN[IF interactive THEN CopyFromLine[] ELSE CopyFromStream[]]; 
END 
END; 

CopyFromLine: PROCEDURE RETURNS[BOOLEAN] - 
BEGIN 
c: CHARACTER ♦- NUL; 

DO 

IF Lindex >■ line. length THEN RETURN[FALSE] ; 

c «- 1 ine[Lindex]; 

Lindex «- Lindex+1; 

IF c # SP AND c # CR THEN EXIT; 

ENDLOOP; 
command, length <- 0; 
DO 

AppendChar[command, c]; 

IF c = '] OR Lindex >■ line. length THEN EXIT; 

c <~ 1 ine[Lindex] ; 

Lindex *- Lindex+1; 

ENDLOOP; 
Cindex *- 0; 
RETURN [TRUE] 
END; 

SkipStreamBlanks: PROCEDURE RETURNS [c: CHARACTER] - 
BEGIN 
UNTIL commandStream.endof [commandStream] DO 

c *- commandStream. get[commandStream] ; 

IF c # SP AND c § CR THEN EXIT; 

ENDLOOP; 
END; 

CopyFromStream: PROCEDURE RETURNS[BOOLEAN] ■ 
BEGIN 
c: CHARACTER; 

c *- SkipStreamBlanks[] ; 

IF commandStream.endof [commandStream] THEN ImageDef s .StopMesa[] ; 

command, length <- 0; 

WriteEOL[]; 

WriteChar['<]; Wri teChar[ ' >]; 

DO 

AppendChar[command , c]; 
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Wri teChar[c]; 

IF c ■ ' ] OR commandStream. endof [commandStream] THEN EXIT; 

c <- commandStream. get[commandStream] ; 

ENDLOOP; 
WriteEOL[]; 
Cindex <- 0; 
RETURN [TRUE] 
END; 

GetName: PROCEDURE [n: STRING] - 
BEGIN 

n. length *- 0; 
DO 

IF AlphaNumeric[GetChar[]] THEN AppendChar[n , currentChar] 

ELSE EXIT; 

ENDLOOP; 
PutBackChar[]; SkipB1anks[] ; IF GetChar[] § '[ THEN SE[]; 
RETURN 
END; 

SkipBlanks: PROCEDURE « 
BEGIN 
DO 

IF GetChar[] # SP THEN BEGIN PutBackChar[] ; RETURN END; 

ENDLOOP 
END; 
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-- code to parse user command 

ParseCommand: PROCEDURE[state: POINTER TO ControlDef s . StateVector] « 
BEGIN 

proc: STRING - [40]; 
cb: CommandBlockHandle; 
i: CARDINAL; 

GetName[proc] ; 

cb «- FindProc[proc].cb; 

FOR i IN [0. .cb.nparams) DO 

state. stk[i] «- GetArg[cb ,cb . params[i] . type] ; 

IF GetChar[] § (IF i - cb.nparams-1 THEN '] ELSE ',) THEN SE[]; 

ENDLOOP; 
state. dest *- cb.proc; 
state, stkptr «- cb.nparams; 
RETURN 
END; 

FindProc: PROCEDURE [name: STRING] RETURNS [p: POINTER TO Commandltem] ■ 
BEGIN 
FOR p <- commandHead, p. link UNTIL p * NIL DO 

IF EquivalentString[name,p. cb.name] THEN RETURN; 

ENDLOOP; 
ERROR BadName; 
END; 

GetArg: PROCEDURE[cb: CommandBlockHandle, t: ParamType] RETURNS [a: UNSPECIFIED] 
BEGIN 
s: STRING ■ [100]; 

SkipBlanks[]; 

SELECT GetChar[] FROM 
«.. s> 

BEGIN 

IF t § string THEN ERROR BadParam[t]; 

DO 

IF GetChar[] - ' " AND GetChar[] § ' " THEN 

BEGIN PutBackChar[]; EXIT END; 
IF executing THEN AppendChar[s, currentChar] ; 
ENDLOOP; 
IF executing THEN a <- NewString[s]; 
END; 
' ' => 
BEGIN 

IF t # character THEN ERROR BadParam[t]; 
a «- GetChar[]; 
END; 
IN[ f 0. . '9], '( , •- •> 
BEGIN 

IF t # numeric THEN ERROR BadParam[t]; 
PutBackChar[]; 
a +- ExpressionToNumber[] ; 
END; 
•T => 
BEGIN 

IF t # boolean THEN ERROR BadParam[t]; 
a <- GetTRUE[t]; 
END; 
'F => 
BEGIN 

IF t ft boolean THEN ERROR BadParam[t]; 
a «- GetFALSE[t]; 
END; 
ENDCASE «> ERROR BadParam[t]; 
SkipBlanks[]; 
RETURN 
END; 

GetTRUE: PROCEDURE [t: ParamType] RETURNS [BOOLEAN] - 
BEGIN 

IF GetChar[] it 'R THEN ERROR BndParam[t]; 
IF GetChar[] # "U THEN ERROR BadParam[t]; 
IF GetChar[] // 'E THEN ERROR BadParam[t]; 
RETURN[TRUE]; 
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END; 



GetFALSE: PROCEDURE [t: ParamType] RETURNS [BOOLEAN] 
BEGIN 

IF GetChar[] # 'A THEN ERROR BadParam[t] ; 
IF GetChar[] # ' L THEN ERROR BadParamft] ; 
IF GetChar[] # 'S THEN ERROR BadParam[t]; 
IF GetChar[] # 'E THEN ERROR BadParamjjt]; 
RETURN[FALSE]; 
END; 
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-- code to parse user commands in interactive mode 

ParsePromptedCommand: PROCEDURE - 
BEGIN 

proc: STRING - [40]; 
cb: CommandBlockHandle; 

IF GetLastID[proc] THEN 

BEGIN 

cb «- FindProc[proc].cb; 

GetPromptedArgs[cb]; 

Conf irm[] ; 

RETURN 

END; 
1 ineTerminator <- CR; 
RETURN 
END; 

CRFound: PROCEDURE [c: CHARACTER] RETURNS[BOOLEAN] - 
BEGIN RETURN[c ■ CR] END; 

GetPromptedArgs: PROCEDURE[cb: CommandBlockHandle] « 
BEGIN 

i: CARDINAL; 
cindex: CARDINAL; 
cstring: STRING - [100]; 
GetArgChar: PROCEDURE RETURNS [c: CHARACTER] = 

BEGIN 

IF cindex >= cstring. length THEN currentChar <- NUL 

ELSE BEGIN currentChar *- cstring[cindex] ; cindex <- cindex+1; END; 

RETURN[currentChar] 

END; 
PutBackArgChar: PROCEDURE - 

BEGIN 

IF currentChar = NUL THEN RETURN; 

IF cindex - THEN ERROR; 

cindex <- cindex-1; 

RETURN 

END; 

GetChar <- GetArgChar; 
PutBackChar <- PutBackArgChar; 
AppendCharToLine[' []; 
FOR i IN [0. .cb.nparams) DO 
WriteString[" 

"]; 

WriteString[cb . par ams[i] .prompt] ; 

WriteChar[' :]; WriteChar[' ]; 

[] *- ReadEditedString[cstring, CRFound, TRUE]; 

cindex *- 0; 

[] <~ GetArg[cb, cb ,params[i] . type]; 

AppendStringToLine[cstring] ; AppendCharToLine[ ' , ]; 

ENDLOOP; 
IF cb.nparams # THEN 1 ine[l ine. length-1] <- '] ELSE AppendCharToLine[ ' ]]; 
GetChar ♦- GetCommandChar ; 
PutBackChar ♦- PutBackCommandChar ; 
RETURN 
END; 

Confirm: PROCEDURE ■ 
BEGIN 
char: CHARACTER; 

WriteString[" [confirm]"]; 
DO 

char <- ReadChar[]; 
SELECT char FROM 

DEL => SIGNAL Rubout; 
CR => BEGIN WriteEOL[]; EXIT END; 
SP »> BEGIN WriteString[" 
<>"]; EXIT END; 

ENDCASE «> WriteChar['?]; 
ENDLOOP; 
1 ineTerminator «- char; 
RETURN 
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END; 
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-- parsing arithmetic expressions 

symbol : Symbol ; 
Symbol: TYPE « RECORD[ 

body: SELECT tag: * FROM 

delim »> [char: CHARACTER], 

num »> [val : INTEGER], 

ENDCASE]; 
Num: TYPE « num Symbol; 

SE: PROCEDURE « BEGIN ERROR SyntaxError END; 

Scan: PROCEDURE ■ 
BEGIN 

v8, vlO, radix, number: CARDINAL; 

digits: ARRAY CHARACTER[ ' . . ' 9] OF CARDINAL - [0,1,2,3,4,5,6,7,8,9]; 
firstchar: BOOLEAN <- TRUE; 

v8 <- vlO *- 0; 
SkipBlanks[]; 
DO 

SELECT GetChar[] FROM 
IN ['0. . '9] ■> 
BEGIN 

v8 <- v8*8 + digits[currentChar]; 
vlO «- vl0*10 + digits[currentChar]; 
END; 
'M ■ > 
BEGIN 

IF -firstchar THEN SE[]; 

IF ~(GetChar[] = '0 AND GetChar[] ■ 'D) THEN SE[]; 
IF ~Alphabetic[GetChar[]] THEN PutBackChar[] ELSE SE[]; 
symbol «- [del im[ f 1 ]]; 
RETURN 
END; 
'b,'B => BEGIN number <- v8; radix «- 8; GOTO exponent END; 
'd.'D => BEGIN number <- vlO; radix <- 10; GOTO exponent END; 
SP => GOTO done; 
NUL => IF -firstchar THEN GOTO done 

ELSE BEGIN symbol ♦■ nul ; RETURN END; 
'(, '/, '*, •+, '-, '), '], \ -> 

IF firstchar THEN BEGIN symbol «- [del im[currentChar]] ; RETURN END 
ELSE BEGIN Pu tBackChar[] ; GOTO done END; 
ENDCASE => SIGNAL Inval idNumber ; 
firstchar <- FALSE; 
REPEAT 

done => BEGIN symbol <- [num[vlO]]; RETURN END; 
exponent ■> 
BEGIN 

IF firstchar THEN SE[]; 
vlO +- 0; 
WHILE Digit[GetChar[]] DO 

vlO <- vl0*10 + digits[currentChar]; 
REPEAT 

FINISHED => PutBackChar[]; -- took one too many 
ENDLOOP; 
THROUGH [1 .. vlO] DO number <- number*radix ENDLOOP; 
symbol <- [num[number]] ; 
RETURN 
END; 
ENDLOOP; 
END; 

nul : Symbol = [del im[NUL]] ; 

Primary: PROCEDURE RETURNS [n: Num] - 
BEGIN 

WITH s: symbol SELECT FROM 
del im *> 
BEGIN 

IF s.char ti '( THEN SE[]; 
Scan[] ; x\ <- Exp[]; 
WITH symbol SELECT FROM 
del im *> 

IF char - ') THEN BEGIN Scan[]; RETURN END; 
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ENDCASE; 
SE[]; 
END; 
num => BEGIN n <- s; Scan[]; RETURN END; 
ENDCASE 
END; 

Factor: PROCEDURE RETURNS [n: Num] « 
BEGIN 

WITH symbol SELECT FROM 
del im »> 

IF char ■ '- THEN 

BEGIN Scan[]; n <- Primary[]; n.val «- -n.val; RETURN END; 
ENDCASE; 
RETURN [Primary[]] 
END; 

Product: PROCEDURE RETURNS [n: Num] » 
BEGIN 
x: Num; 
n <- Factor[]; 
DO 

WITH symbol SELECT FROM 
delim a > 

SELECT char FROM 

'* => BEGIN Scan[]; n.val *- Factor[].val * n.val; END; 
'/ => BEGIN Scan[]; x «- Factor[]; n.val ♦- n.val / x.val; END; 
'! => BEGIN Scan[]; x <- Factor[]; n.val <- n.val MOD x.val; END; 
ENDCASE => EXIT; 
ENDCASE => EXIT; 
ENDLOOP; 
RETURN 
END; 



Exp: PROCEDURE RETURNS [n: Num] = 
BEGIN 

n *- Product[]; 
DO 

WITH symbol SELECT FROM 
del im => 

SELECT char FROM 

'+ => BEGIN Scan[]; n.val <- Product[] . val + n.val; END; 
'- => BEGIN Scan[]; n.val <- n.val - Product[] . val ; END; 
'], ', => BEGIN PutBackChar[]; EXIT END; 
NUL, ') => EXIT; 
ENDCASE => SE[]; 
ENDCASE => EXIT; 
ENDLOOP; 
RETURN 
END; 



ExpressionToNumber: PROCEDURE RETURNS [INTEGER] 
BEGIN 
Scan[]; 

RETURN [Exp[].val] 
END; 
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ShowSE: PROCEDURE - 
BEGIN 

IF -executing THEN BEGIN WriteChar[ ' ?] ; RETURN END; 
WriteEOL[]; 

IF interactive THEN Wri teString[command] ; 
WriteEOL[]; 
THROUGH [l..(Cindex+(IF interactive THEN ELSE 2))) 

DO WriteChar[' .]; ENDLOOP; 
WriteChar['t]; 
RETURN 
END; 

Driver: PROCEDURE ■ 
BEGIN 

state: ControlDef s .StateVector ; 
newline: BOOLEAN; 
ci: POINTER TO Commandltem; 
i: CARDINAL; 

BEGIN 
ENABLE 
BEGIN 
SyntaxError, LineOverf low, Inval idNumber, StringBoundsFaul t a > 

BEGIN ShowSE[]; GO TO abort END; 
CommandOverFlow a > 

BEGIN WriteEOL[]; WriteString["Command too long!"]; GO TO abort END; 
BadName *> 

BEGIN ShowSE[]; Wri teString[" not found!"]; GO TO abort END; 
BadParam => 
BEGIN 
ShowSE[]; 

WriteString[" expected "]; 
SELECT type FROM 

string => WriteStr ing["string"]; 
character -> WriteString["ctiaracter"]; 
numeric => WriteString["numerical "]; 
ENDCASE; 
WriteString[" parameter"]; GO TO abort 
END; 
Rubout => BEGIN WriteString[" XXX"]; GO TO abort END; 
Help => 
BEGIN 

WriteEOL[]; 

FOR ci <- commandHead, ci.link UNTIL ci « NIL DO 
Wri teString[ci .cb . name]; 
WriteChar['[]; 

FOR i IN[0. .ci .cb.nparams) DO 
IF i § THEN WriteChar[' ,]; 
SELECT ci .cb.params[i].type FROM 
string => Wri teChar[ ' "] ; 
character => WriteChar[ ' ' ]; 
ENDCASE; 
WriteString[ci .cb. params[i] .prompt] ; 
SELECT ci .cb.params[i].type FROM 
string => WriteChar[ ' "] ; 
ENDCASE; 
ENDLOOP; 
WriteChar[']]; 
IF ci.link ft NIL THEN 

BEGIN WriteChar[\]; WriteCharC* ]; END; 
ENDLOOP; 
GO TO abort 
END; 
UNWIND => FreeStrings[] 
END; 

newline «- TRUE; 
executing <- FALSE; 
IF interactive THEN 
BEGIN 

WriteEOL[]; 

WriteChar['<]; Wri teChar[ ' >] ; 
DO 
ENABLE LineOverflow *> BEGIN AddToLine[]; RESUME[line] END; 
ReadUserLine[newl ine] ; 
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newline +■ FALSE; 
ParsePromptedCommand[] ; 
IF lineTerminator ■ CR THEN EXIT; 
ENDLOOP; 
END; 
GetChar *- GetCommandChar ; 
PutBackChar <- PutBackCommandChar; 
executing «- TRUE; 
WHILE SetUpCommand[] DO 
ParseCommand[@state] ; 
state, instbyte <- ; 

state. source <- REGISTER[ControlDef s . Lreg] ; 
TRANSFER WITH state; 
state <- STATE; 
ENDLOOP; 
executing «- FALSE; 
EXITS abort ■> NULL; 
END; 

FreeStrings[]; 

RETURN 

END; 

Quit: PROCEDURE ■ 
BEGIN 

ImageDef s .StopMesa[]; 
END; 

-- main body 

[] *- AddCommand["Quit M ,Quit,0]; 

[] «- AddCommand["Debug" .GetDebugger , 0]; 

AddCommand["Load",LOOPHOLE[Load] ,1] .params[0] «- [string, "File name"]; 

ImageDef s . AddCleanupProcedure[@CommanderC lean up Item] ; 

STOP; -- restart here when commander is started inside subsystem 

WriteEOL[]; WriteString[herald] ; WriteEOL[]; 
SetCommandInput[] ; 

DO Driver[]; ENDLOOP; 

END. 

-- Here is the grammar for the command line 

CommandLine : : = PromptedCommandList <CR> | NonPromptedCommandList ; 

NonPromptedCommandList <EOF> 
PromptedCommandList ::- PromptedCommand | Command | CommandList <SP> Command 

| CommandList <SP> PromptedCommand 
NonPromptedCommandList : : = Command | CommandList <SP> Command 
Command ::= ID [ ParamList ] 
PromptedCommand : : = ID <CR> PromptedParamList 
ParamList ::- Param | ParamList , Param 

PromptedParamList ::= Param | PromptedParamList <CR> Param 
Param ::= " STRING " | ' CHARACTER | Expression | <empty> 
Expression : : = Product | Expression + Product | Expression - Product 
Product :.*- Factor | Product * Factor | Product / Factor | Product MOD Factor 
Factor ::= - Primary | Primary 
Primary ::= NUM | ( Expression ) 



